unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TFormMain = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    ListBox1: TListBox;
    ComboBox1: TComboBox;
    GroupBox1: TGroupBox;
    RadioGroup1: TRadioGroup;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;
  function DoPlusAction(AParm : PChar):Integer;stdcall;

implementation

{$R *.dfm}

function DoPlusAction(AParm : PChar):Integer;stdcall;
begin
  Result := 0;
  if String(AParm)='Close' then
  begin
    if Assigned(FormMain) then
      FreeAndNil(FormMain);
  end
  else
  begin
    FormMain := TFormMain.Create(nil);
    FormMain.Memo1.Lines.Add(String(AParm));
    FormMain.Show;
    Result := Integer(@FormMain);
  end;
end;

end.
